home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #8 / 1999 CD 8 (black).iso / maskdemo / DATA1.CAB / Program_Executable_Files / Daventry / KQ / KEEPDOOR.CS < prev    next >
Encoding:
Text File  |  1998-12-15  |  1.2 KB  |  44 lines
  1. if test $2 == ConnorAction
  2.     echo "Keep Door Action"
  3.     if test $4 == do
  4.         echo "Keep Door do"
  5.         echo $Daventry::KeepDoor::Locked
  6.         if test $Daventry::KeepDoor::Locked == 1
  7.             # "It's locked!"
  8.             KQMonster::speak Connor  $1 1000 30 14 49 1 0
  9.         else
  10.             sendEvent 0 $1 KQDoorEvent 0
  11.         endif
  12.     else if test $4 == INVITEM_KeepKey
  13.         echo "Use Key"
  14.         # Can't unlock an unlocked door
  15.         echo $Daventry::KeepDoor::Locked
  16.         if test $Daventry::KeepDoor::Locked == 1
  17.  
  18.             # "It unlocked!"
  19.             KQMonster::speak Connor  $1 1000 30 4 49 1 0
  20.  
  21.             earnTeleport
  22.             teleportersEarned
  23.             if test $Console::Return >1
  24.                 KQMonster::speak Connor Connor 0 70 34 30 1 0
  25.             else
  26.                 KQMonster::speak Connor Connor 0 70 34 30 1 0
  27.             endif
  28.  
  29.             addMapIcon dv_telep.bmp 250 98 davmap.pbm
  30.             set Daventry::KeepDoor::Locked 0
  31.             echo $Daventry::KeepDoor::Locked
  32.             deleteObject $3
  33.             sendEvent 0 Connor KQStatsChangeRequestEvent 0 0 0 0 25
  34.             sendEvent 0 keepdrl KQDoorEvent 0
  35.             sendEvent 0 keepdrr KQDoorEvent 0
  36.             KQObject::collisionType keepdrl -32
  37.             KQObject::collisionType keepdrr -32
  38.             set Daventry::Dialog::Teleport 0
  39.             doPopup 146
  40.             doPopup 151
  41.         endif
  42.     endif
  43.     endif
  44. endif